home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cpp_libs / rwvector.lha / RWVector2.1 / rw / linpack.h < prev    next >
C/C++ Source or Header  |  1989-08-18  |  2KB  |  66 lines
  1. #ifndef LINPACK_H
  2. #define LINPACK_H
  3. #pragma once
  4.  
  5. /*
  6.  *    LINPACK declarations --- to be expanded considerably
  7.  *
  8.  *    Copyright (C) 1988, 1989.
  9.  *
  10.  *    Dr. Thomas Keffer
  11.  *    Rogue Wave Associates
  12.  *    P.O. Box 85341
  13.  *    Seattle WA 98145-1341
  14.  *
  15.  *    Permission to use, copy, modify, and distribute this
  16.  *    software and its documentation for any purpose and
  17.  *    without fee is hereby granted, provided that the
  18.  *    above copyright notice appear in all copies and that
  19.  *    both that copyright notice and this permission notice
  20.  *    appear in supporting documentation.
  21.  *    
  22.  *    This software is provided "as is" without any
  23.  *    expressed or implied warranty.
  24.  *
  25.  *
  26.  *    @(#)linpack.h    2.1    8/18/89
  27.  */
  28.  
  29. /******************* Double Precision *************************/
  30.  
  31. extern Fortdecl void 
  32. dgefa_(double*, const fortran_int*,
  33.        const fortran_int*, fortran_int*, fortran_int*);
  34.  
  35. extern Fortdecl void 
  36. dgesl_(const double*, const fortran_int*,
  37.        const fortran_int*, const fortran_int*, double*, const fortran_int*);
  38.  
  39. extern Fortdecl void 
  40. dgedi_(double*, const fortran_int*,
  41.        const fortran_int*, const fortran_int*, double*, double*, const fortran_int*);
  42.  
  43. #define Dgefa_ dgefa_
  44. #define Dgesl_ dgesl_
  45. #define Dgedi_ dgedi_
  46.  
  47. /******************* Single Precision *************************/
  48.  
  49. extern Fortdecl void 
  50. sgefa_(float*, const fortran_int*,
  51.        const fortran_int*, fortran_int*, fortran_int*);
  52.  
  53. extern Fortdecl void 
  54. sgesl_(const float*, const fortran_int*,
  55.        const fortran_int*, const fortran_int*, float*, const fortran_int*);
  56.  
  57. extern Fortdecl void 
  58. sgedi_(float*, const fortran_int*,
  59.        const fortran_int*, const fortran_int*, float*, float*, const fortran_int*);
  60.  
  61. #define Fgefa_ sgefa_
  62. #define Fgesl_ sgesl_
  63. #define Fgedi_ sgedi_
  64.  
  65. #endif LINPACK_H
  66.